﻿Imports capaNegocios

Public Class secAlumno_modificar
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Page.IsPostBack = False Then
            Dim objAlumno As New clsAlumno
            Dim alumno As New DataTable

            objAlumno.id = Request.QueryString("codAlum")
            alumno = objAlumno.BuscarPorCodigo()
            Me.txtApellidoPaternoModificar.Text = alumno.Rows(0)("ALU_ApellidoPaterno")
            Me.txtApellidoMaternoModificar.Text = alumno.Rows(0)("ALU_ApellidoMaterno")
            Me.txtNombresModificar.Text = alumno.Rows(0)("ALU_Nombres")
            Me.txtTelefonoFijoModificar.Text = alumno.Rows(0)("ALU_Telefono")
            Me.txtTelefonoMovilModificar.Text = alumno.Rows(0)("ALU_Celular")
            Me.txtDireccionModificar.Text = alumno.Rows(0)("ALU_Direccion")
            Me.txtDniModificar.Text = alumno.Rows(0)("ALU_DNI")
            Me.ddlEstadoModificar.SelectedValue = alumno.Rows(0)("ALU_Estado")
            Me.txtApoderadoModificar.Text = alumno.Rows(0)("ALU_APOParentesco")
            Me.txtNombresApoderadoModificar.Text = alumno.Rows(0)("ALU_APONombres")
            Me.txtApellidoPaternoApoderadoModificar.Text = alumno.Rows(0)("ALU_APOApellidoPaterno")
            Me.txtApellidoMaternoApoderadoModificar.Text = alumno.Rows(0)("ALU_APOApellidoMaterno")
            Me.txtDniApoderadoModificar.Text = alumno.Rows(0)("ALU_APODNI")
            Me.txtTelefonoApoderadoModificar.Text = alumno.Rows(0)("ALU_APOCelular")
            Me.txtDireccionApoderadoModificar.Text = alumno.Rows(0)("ALU_APODireccion")
        End If
    End Sub

    Private Sub btnModificarAlumno_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnModificarAlumno.Click
        Dim objAlumno As New clsAlumno

        objAlumno.id = Request.QueryString("codAlum")

        objAlumno.apellidoPaterno = Me.txtApellidoPaternoModificar.Text
        objAlumno.apellidoMaterno = Me.txtApellidoMaternoModificar.Text
        objAlumno.nombre = Me.txtNombresModificar.Text
        objAlumno.telefono = Me.txtTelefonoFijoModificar.Text
        objAlumno.celular = Me.txtTelefonoMovilModificar.Text
        objAlumno.direccion = Me.txtDireccionModificar.Text
        objAlumno.dni = Me.txtDniModificar.Text
        objAlumno.estado = Me.ddlEstadoModificar.SelectedValue
        objAlumno.apoderadoParentesco = Me.txtApoderadoModificar.Text
        objAlumno.apoderadoNombre = Me.txtNombresApoderadoModificar.Text
        objAlumno.apoderadoApellidoPaterno = Me.txtApellidoPaternoApoderadoModificar.Text
        objAlumno.apoderadoApellidoMaterno = Me.txtApellidoMaternoApoderadoModificar.Text
        objAlumno.apoderadoDni = Me.txtDniApoderadoModificar.Text
        objAlumno.apoderadoCelular = Me.txtTelefonoApoderadoModificar.Text
        objAlumno.apoderadoDireccion = Me.txtDireccionApoderadoModificar.Text

        If objAlumno.Actualizar() = True Then
            MsgBox("Alumno modificado correctamente")
            Response.Redirect("secAlumno.aspx")
        Else
            MsgBox("Error al modificar alumno")
        End If
    End Sub
End Class